home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 05 Programming / CDT128.ARC / READ.C < prev    next >
Text File  |  2019-04-13  |  1KB  |  42 lines
  1. /***********************************************************************/
  2. /***********************************************************************/
  3. /*                                                                     */
  4. /* ╘HIS PROGRAM IS COPYRIGHT 1986 BY ┴LAN ┘ORINKS.  ╔T MAY BE FREELY   */
  5. /* DISTRIBUTED FOR NON COMMERCIAL USAGE IF THIS COPYRIGHT NOTICE IS    */
  6. /* LEFT INTACT. ├OMMERCIAL USAGE OF THIS PROGRAM IS EXPLICITLY         */
  7. /* FORBIDDEN WITHOUT THE WRITTEN PERMISSION OF THE AUTHOR.             */
  8. /*                                                                     */
  9. /***********************************************************************/
  10. /***********************************************************************/
  11.  
  12.  
  13. /*     CDT VERSION 1.0    PART 10 OF 15   ╩ULY 25, 1986                 */
  14.  
  15.  
  16.  
  17. /* READ MEMORY FUNCTION */
  18.  
  19. #INCLUDE <STDIO.H>
  20. #INCLUDE "DBUG.H"
  21.  
  22. VOID
  23. READ()
  24. █
  25.            ╒╔╬╘ C ;         /* RETURN VALUE OF PEEK FUNCTION */
  26.     EXTERN ╒╔╬╘ PEEK() ;
  27.     EXTERN ┴╥╟╙ ALLARG ;
  28.  
  29.  
  30.     PRINTF("\N%4X: %2X",
  31. #IFDEF ├64
  32.            ┴──╥(RDBYTE), C = ╨┼┼╦( ┴──╥(RDBYTE) ) );
  33. #ELSE
  34.            ┴──╥(RDBYTE), C = PEEK( ┬┴╬╦(RDBYTE),(╒╔╬╘)┴──╥(RDBYTE) ) );
  35. #ENDIF
  36.  
  37.     IF( ISPRINT( (CHAR)C ) )
  38.         PRINTF( "    ASCII: %C\N", C ) ;
  39.     ELSE
  40.         PRINTF("\NNON PRINTABLE\N") ;
  41. ▌
  42.